home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C128 / Monthly Disks / (y)acc.d64 / autoexec next >
Text File  |  2007-02-04  |  424b  |  21 lines
  1. SLOW
  2. BANK15:Y=PEEK(57094):POKE 57094,Y+1:POKE 7136,ABS(PEEK(57094)-Y)
  3. Z:IF NOT ERRORLEVEL 1 Z:AUTOEXEC2
  4. Z:SETRAM 21,3
  5. POKE 7120,2*16+5
  6. POKE 7119,2*16+5
  7. POKE 7136,1
  8. IF ERRORLEVEL 1 GOTO RAMDISK-ALREADY-THERE
  9. Z:GETRAM Z:RAMDISK
  10. :RAMDISK-ALREADY-THERE
  11. IF (PEEK(215) AND 128) THEN FAST
  12. POKE 7150,4:POKE 7151,96
  13. ASSIGN B 9,0
  14. ASSIGN C 10,0
  15. ASSIGN D 11,0
  16. ASSIGN E 12,0
  17. ASSIGN I 16,0
  18. ASSIGN J 16,6
  19. ASSIGN K 16,9
  20. RUN"SETTIMEDAY",U16
  21.